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NO: 075 


SAMPLE PROBLEM: 075 IN-PLANE INVARIANTS FOR PO 178 88, fA 


1, T-300/5208 


I, = 49.49, 1, = 26.88, R, = 85.732, R, = 19.717 


| fie e = == - 6 
a) [O/90) | ae 49.49 ae 0 ie 0 . 
La 7 26.88 Ry, = 19.72 
_b) [487-457 [Pg = 49-49 Rj, = 0 ie 
ptt 14 = 26. 88 Ry, = 19-72 
: ees» eee a eS gi 25 Sets 
e) isha eid Ria =? 1a 7978, 
2 Gay ee 
d) fo/45) , | | 1, 4 = 49-49 Ry, = 60. 62 1a 7722450 
pacaat eee = = 4 = 6 = 
LA 26.88 Ri, = 0 aq-= 0 
we Bs eg 
2. Same as | but for B(4)/5505 
a) fo/9q}] | | | Ih, = 58.0 Bia oe pasa. 
14 = 29-80-R, = 24.0 
» 
fr 
78 
NE Gc a Sane A ee ee 


ewer INSTRUCTIONS 
OPERATION | STEP| READ ENTER PRESS | DISPLAY 


Continue from 
Om, 
Compute Ay 3 041 A&B 6 (deg) 
Invert si 4 027 A&B 
79 


PROGRAM TITLE: IN-PLANE MODULUS AND COMPLIANCE NO: 079 


FORMULAS: 


oe 


TABL E 20 FORMULAS FOR IN- PLANE MODULUS FOR [o, 190, 145. /-45 a 


ae 


cos 2(0- §)) 


-cos 2(0- 61) 


1 ee 
2 sin2(e-6)) 


de 
- 28in2(8-6,) 


Let ioe a = il? * [A; 5] or ie oie = be (204) 
| me 
where 
Eee as Te ae F ae 
*-* days 66726) +--+ 22--* aoe 6674 16) 
“1 3 |\ ota AY, '& s SA wee it (206) 
ye ih “ee 2 A 16 2 * 66 66 “A idaces. be | r 
ane ceed = 
bat? Wars 2642216) 26 aie! 16°" 1126 
oe Any Ai 16 
A’ Li ee. 26 
“ert ee A 66 
In-Plane Engineering Constants;. ae | a 
a a 
° Bs —} ° = | i ° 12 ° 12 ° 1 
E =— , E -_—_— , |) 2 2, = 
11 f ha), ee. h8,5 12 an ; 52 12 fay, 


“I~ OPERATION 


Continue-from- 
atest OCD at 


INSTRUCTIONS 


StEF READ ENTER PRESS DISPLAY 


81 


ae 


PROGRAM TITLE: IN-PLANE STRAIN 


FORMULAS: 
Ae 4 F ‘ t ! 2% 
I i = != 
Sat Crepes = Rie J ee 
| ' ! ' i i : : 
° 
") of eee ee My 
| 
as = a a. a. N or 
a 21 22 26 2 
e° a, a a N 
Mos, | Ven 6266 6 
‘ 
82 


RS I a 


st ‘ 


NO: 081. 


(204) 


eaN, (205) 


| TITLE: PLY STRESS FOR [0 ;/90_/45_/-45_} 


Continue from _ 
I 081 * 

“Input ply data’ A 
and initialize 


; ‘Goaerite ey EE 


= ee | 


18 ieneeae ee 


“Gomputd Q), Q " 8). 


PROGRAM TITLE: PLY STRESS FOR [0 190, /45,./-45,] NO: 083 
FORMULAS: 
“la. Calculation of In- Plane Stratus , me. 
gel HOR fe oe het 
sea ar Mat ati: fie Walk 
ep = BayNyta2Npt ao6Ny (233) 


p-- a 
| t 


° i 
ie Oa mye S62" 2* 66h 6 


soe Se a a motes 


ae?) a eee apes 3 yaa cee = | Stave Wee ats 
<. N 
ie Oy Oe 1 
e )= es a N or e° = a..N (234) 
ye ee hy | er 2 Blea | he ; 
° 
-%6 “et Per es af 
b. Calculation of Stresses of the t-th ply. __ 
(t) t) ° 
Sy 9,,-+-Byp Beg *) 
= t 23 
o> = ‘ee Q,5 Q36 €, (235) 
°o 
%% Qoi-- Pea Ge “5 
—— = Bee! Sue re ee a | mal 
For. thea atenkart ly. seoiioicie nex ret a 'a'! in the equation above 
re Oe ae ee ae TABLE 31 SAMPLE CALCULATIONS OF PLY STRESSES 


(For T-300/5208) 


1.8662 


+1338 
1.0 


[0/90/45/-45] 


84 


TITLE: INVARIANTS OF FLEXURAL RIGIDITY 


INSTRUCTIONS 


OPERATION |} STEP READ ENTER 


Input ply data 1 045 A&B 
Input data Z. N/2 

2z /h 

° 
Initialize 3 085 A&B 
Compute in- a (deg 
variants of a. Wa 
D.. > (deg 
1 


PROGRAM TITLE: INVARIANTS OF FLEXURAL RIGIDITY NO: og5 


FORMULAS: 


TABLE 33 FORMULAS FOR FLEXURAL RIGIDITY WITH ISOTROPIC SUBSTRUCTURE 


cos2(0-6)) cos4(@-65,) 


-cos2(8-6,) cos4(@-5,) 


-cos4(0-6,) 


-cos4(0- 5) 


uM 
-—=sin2(Q- -si S 
| 7sin (0 8) sin4(0 5) 


| 1. 
| 3 ~zsin2(6-8)) sin4(0-6 


3 

2 2 2 | 2 ; 2 
v,+ Vv; = (2) ( DoF cos2a)) + ( DF sinze,) 1D / Ry (259) 
2\° 4 ine 3 (260) 
ra (Uo Fycos4a,) + ( DF, sin4a,) ! 2p / ®2 


2) 


" 
ye) 


) V + v2 i ( = R ]R 
4 
2D..4 D,.) Vv ; 
Ti 2z I : ; } 
7 “D.,<« B,) Vv ) 
tan 46, 2 As 26 7 * + } 
Di, + Dag- 2D)2° 4D¢6 2 
oF f Lai tli! 
F, --s (+ ==) - a) $3] 1. (26m - 
9° °o 


Figure 70 Sandwich Plate 


PROGRAM TITLE: INVARIANTS OF FLEXURAT.-RIGIDITY NO: 085 


PROGRAM LISTING: 


= 


oOe 
no; 
oo 
oo3 
o1i0 
oii - 
O12 of O5r 
ois 49 

gid on 
nis of 


oie oo 


(oe San a 
tim =] 
on 
Tht 


ego 46 O45 65 090 00 125 OS S01 
Tene tet O46 03 o91 G6 136 &5 ai 
ooz of O47 75 O92 95 L37 G1 B2 
oo2 75 O48 43 O82 44 1356 95 83 
ood 43 O49 G0 O94 O1 139 41 a4 
oos5 o1 950 05 O35 03 140 66 a5 ¢ 
= 46 fe 35 
ds 


A 
n 
rare 
iT 
i | 
(as es eS 
1 iT 
Fa 
Di 
pnt 
fa 
bet 


woes i 


ee 


DC a iT 


1 Ce a 
0 
3 a 
we AT Bat 1 
ROO Re de 
— 
fa. 
Be 
© 
bent 


mi fa wee 
ma Ln hs on 
an 


at ag 


y ee 


102 00 i147 43 
1032 06 i148 a1 
ig4 95 149 Ql 
105 ¢4 150 34 
106 G1 151 95 


: 
OF a] 
= 


peat 
7 ee 8 


ne 
ae) 


Ts 
am) 
Oe as 


m fe «0 


1 
iT 
Oe) 


Oe fe 0 mm fe a im 


O17 42 G6 107 02 i152 22 a7 od 


OF i) 


i108 43 153 34 
109 01 154 535 
110: OS «tos Ue 
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Wo ot 0 fe i ee ou 


Ts Ts 
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iT 
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| 
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TD Be et Pt 


Dod < “4 
Ts iT 
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Ts (7 
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J] J iT 
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oJ 
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Yh OTT Poe 
pete 
menenene 
wit “J , 
ie a We 


a im 
_ 
a1] 
7) 
_! 

Then i 
Trt 
| | 
fa 
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pas 


aS 6 ee ee 


Th te Pe fe eo eT 
a a 
bk 
iT 
—_ 
[2 
bet 
qh 
cS 
iT 
= 
Lae 


om on 
wo mf oT a fe id 
1 fe 
ee 
(T 
tT 
= 
fa 
Th 
= 
~.J 
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ve 
(T 
f 
on 
Boon 
Th 
= 
cn 


Fee ph beh be ete pet peck Be et 
Ee 
fa 
ih 
iT 
am] 
bet 
“hh ho ho he he ee et 
Peete 
m= 
mf 1 


LC Re ee es oe 


Th 2 


z= 
~] 
~ 
1m fe os hm 
mh 
bet 
r 
tr 
t 


7m) 
nl 
Tw 
—s 
tat 
1 fu ial 
ee le UD ae ce nim cn 


166 O35 
i ee US 167 34. Ziz u 
ors les fa l66 95 2:3 
OT3 06 tit24 43 169 22 214 0 * 
. 8380 $5 125 G0 Ir 34. 213 3 
o O81 44 #12605 I7fi 35 216 4 
@ Use G1 lef 3S ice U4 Cir o 
5 083 01 128 90 if3 95 218 0 
“ 6 084 43 129 87 174 42 2196 
iS USS OL i330 22 ifs GU 
¢ 086 09 131 60 176 O08 
6 USr se oe ify 43 
5 O88 65 133 43 178 O1 
go 089 43 134 00 179 03 


Continue from 
085 


Compute D, 


j 


Inve TEL. 
1J 


041, A&B 


027 A&B~ 


Pe 2 2S oo 2 © 
[oon 


fu gJ 


a @ & & A 
_—- Oo — 
ao no N 


nN 
oO 


PROGRAM TITLE: FLEXURAL RIGIDITY AND COMPLIANCE NO: 088 
FORMULAS: 


TABLE 33 FORMULAS FOR FLEXURAL RIGIDITY WITH ISOTROPIC SUBSTRUCTURE 


cos2(@-6,) 


-~cos2(8-8)) cos4(6- 5.) 


-cos4(6-6,) 


5sin2(a-6,) sin4(0-6,) 


89 


AIR FORCE MATERIALS LAB WRIGHT-PATTERSON AFB OH F/6 9/2 
SR=52 MAGNETIC CARD CALCULATOR SOLUTIONS TO COMPOSITE MATERTALS== 

JAN 79 S$ W TSAIe H T HAHNe F HUBER E RIALS==ETC(U) 
UNCLASSIFIED AFML-TR=77=-50 - 


AD=A067 987 


TITLE: CURVATURE DUE TO BENDING NO: 090 


Continue from 
VI-lb 


019 A&B 


Input M. 


Compute k. 


PROGRAM TITLE: cuRVATURE DUE TO BENDING NO: 090 


_ FORMULAS: 


TABLE 50 FLEXURE-CURVATURE RELATIONS 


—— 


i = O17, + Qrze2 + Qigeg 
2 = Q51%) + Q,2%2 + 256% (281) 
4: 2-6 3%, + Ser%2 + Qgge, 

Tie iM; 


cae Sn Cone Sones eee ee _ 


a Figure 73 Flow diagram for ply stress calculation. ; 


= -+-—- 


91 


O-nenn eee? 


eGo S _— 


TITLE: PLY STRESS DUE TO BENDING 


Continue from 


30 


Input ply data 
& initialize 


Compute Q:5( a, ) 


Compute 6(z)) 


Compute a, z ) 


be i i Q;,( a, 


Compute ¢,( zZ 2 ) 


Compute o,( z5) 


)| Rpt 8 


045 A&B 


041 A&B 


023 A&B 


023: A&B 


PROD” 17 
PROD* 18 
PROD* 19 


PROD* 17 
PROD* 18 
PROD” 19 
cS. U 


MS Pesce cal ae 


LL 


TITLE: INVARIANTS OF COUPLING MODULUS NO: 093 


Input ply data 045 A&B 
Input data 093 A&B 


Compute invar- 
iants 


Recall 


A a ne ag 


PROGRAM TITLE: INVARIANTS OF COUPLING MODULUS NO: 


FORMULAS: 


TABLE 56 FORMULA FOR TRANSFORMED COUPLING MODULUS 


cos2(0-8,) cos4(0-6,) 
~cos2(0-5,) cos4(0-6,) 
-cos4(0-6,) 
-cos4(0-6,) 
| ae 
-—yain2(0-6)) -sin4(@-6,) 
a 2(98 6. in4(@-6 
Zane Oy) eeane- 2) 
1 i 1 
v,# SIF ,cos2a, oar LF cos4a_ (322) 
N N 
mere) ee Abr e VERO Meet eta | - 
v; Pr DF sinze 2 > UF,sinae (323) 
omy -aaais AMR IGIRE MSR” saat a N oa See Sew | 
a ——e co a ee ee eee Ce et ee Ee os 
tan 26 a i aS ame ne De (320): er 
1 tina ‘ f 
t r 1 + — Ses 
' i i ' oo f ~ Stes ¢ 
] : si 
4 wa a Ieee on Samet: a 
tan 45, z= os a = | | (321)_1 
J —4+ bat a to A —e 
co or ee 


_Figure 78 Integration of unsymmetric 
laminates must be performed _ 
for the entire thickness from 

-h/2 toh/2. (For symmetric 
( laminates, integration can be 
limited to from 0 to h/2). 
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093 


PROGRAM TITLE: tNvARIANTS OF, COUPLING MODULUS 


PROGRAM LISTING: 


ood 
oo2 
nos 
od4 
O05 
ode 
oor 
oos 
oo9 
o10 
Oil 
Ole 
O13 
O14 
o15 
O16 
O17 
o16 
o1% 
o20 
021 
O22 
023 
O24 
025 
C26, 
027 
028 
029 
o30 
O31 
O32 
O33 
O34 
O35 
O36 
O37 
O36 
O39 
040 
041 
042 
043 
044 


46 
il 
42 
oF 
og 
od 
42 
O14 
O1 
42 
O01 
oz 
42 
O1 
o3 
42 
O41 
O4 
42 
00 
os 
46 
es 
42 
oo 
05 
65 
Oz 
7S 
O1 
95 
42 
oo 
06 
a1 
46 
L2 
65 
02 
94 
95 
42 
oo 
o0 
65 


j 
O45 


O46 
O47 
O43 
O49 
050 
as1 
O52 
O53 
O54 
O55 
O56 
O57 
O58 
a59 
060 
O61 
062 
063 
064 
065 
O66 
O67 
068 
069 
a7o 
O71 
O72 
a73 
or4 
O75 
O76 
O77? 
Ors 
or9 
030 
O81 
032 
083 
084 
035 
O86 
087 
088 
O89 


go 65 ‘135 43 180 
091 42 136 01 181 
092 oo 137 04 182 
093 og 13855 188 
o94.95 13943 184 
o95 44 140 a1 185 
pase ci f4i 03 {6 
oo7 04 i42 94 187 
093 43 143.95 «186 
099 09 144 22 «189 
100 G9 «145 34120 
10175 i465 12) 
102 43 147 04 132 
103 90 14895 12¢ 
in4 o5 149 42 134 
105 95 150 00 1259 
106 90 151 08 136 
107 87 152 43 «13% 
10g 49 (153 01 128 
109 oo 154.03 199 
1109 05 155 40 200 
111 95 156 85 201 
ii2 o1 157 43 202 
113 95 158 01 203 
114 41 159 04 204 
115 g¢ 160 40 205 
116 4g 161 95 206 
417 a7 162 30 «20% 
118 43 163 55 208 
119 o1 16453 299 
120 92 165 43 219 
12155 16609 211 
123 43 167 09 «(212 
123 of 168 65 es 
124 01 16902 Sif 
{28 94 170 54 219 
126 95 171 40 518 

Bo pp 172 ely 
i2a 4 173 49 218 
i274 55 174 00 #213 
130 o2 175 04 220 
i131 95 17643 221 
132 42 lr? 01 
133 00 «178 01 
134 07 179 40 

95 


NO: 


SAUNA OO RO 
Ono no he on 


093 


NO: 093 


oO 
o 


TITLE: COUPLING MODULUS 


Continue from 
093 


Compute B.. 
ij 
Recall 


pce pose cape a 
PROGRAM TITLE: coupuING MODULUS. NO: 997 
‘ t H ‘ t ‘ ' 
i } 
FORMULAS: 
TABLE 56 FORMULA FOR TRANSFORMED COUPLING MODULUS 
; ead e-8)) : cos4(8-6,) 
~cos2(6-5,) cos4(@-6,) 
~cos4(0-6,) 
* -cos4(0-6,) . 
oe . 
a id -sin4(0-6 ie 
j De ee oe goo & 
- zein2(e-8)) Z ; sin4(@-6,) : 
me & is | 
Vv, = —ZLF,cos2a, ¥a_ 20% zg LF, cos4a_. oe es, 
N N i 
pr pe en at ee tne | 
: ‘on but ay | 
\ os . Sard sah nk (ae mance 
5 ae vil P maces asta Suestl pe oh Es ee 
+ v, wr DF sinze Vv; i: _ sin4a (323) 
j ie WA : “ N a ah ie a ae } 
oe Vopr he 
| ae ee ye st 22 
a 3 bt - - é eae pu 
. tan 26 = yy ae (320). | | ; 
1 [ be Wiech etore Sh cans 
! ry , -- - i ly. 
re 5, yp: -| aoe Fa 
tan4é, == = ot f (32 i 
2: ' | | | a 
{ oo | | --+- — \* 
| ! * 
. kek MEP ee eee ere ws 
, $ ; } 
_Figure 78 Integration of unsymmetric 
laminates must be performed } 
for the entire thickness from i 
| -h/2 toh/2, (For symmetric } 
f laminates, integration can be 4 | 
limited to from 0 to h/2). } 


98 


TITLE: MOISTURE CONTENT AND SWELLING STRAIN NO: 099 


Input data 


Compute c 


- | _— - H 
_Gompute @ 


Compute « c 


Gomppta | e 


PROGRAM TITLE: woistuRE CONTENT AND SWELLING NO: 099 
STRAIN 
FORMULAS: 
cc MOM = Com item+ My /M 


ny 


(eo %m Pmt oF Pet Pe) I> 


. {eis at eV Set V.) /s pie 
H_ lt+ yp 
Op = 3 8 
c = /s 
° Vv 
H , 7 i 
i. onie.. [area 2-4] 1. i fs (402) 
ooo 46 030 00 oéo o1 
PROGRAM LISTING: G01 11 O31 03 O61 35 
oo2 42 O32 81 O62 43 
003 oo O33 46 O63 00 
oo4 o1 O34 14 O64 O85 
005 $1 035 65 O65 54 
oo6 46 O36 O1 O66 65 
Ho? de Cer 35 Ger ol 
age 42 036 55 06s 55 
oo9 oo O39 O23 O69 61 
O10 oz O40 65 aro 75 
O11 81 O41 435 ori ot 
O12 46 042 00 O72 35 


013 13 043 01 O73 55 


014 81 O44 95 O74 Oe 

015 65 045 8 O75 95 , 
G16 81 O46 46 O76 81 

O17 65 O47 15 

O18 81 O46 43 

O19 95 042 00 

020 43 O50 02 


021 00 O51 535 
G22 02 O52 43 
023 95 0353 00 
024 55 O54 O1 
025 43 055 95 
O26 00 O56 1 
O27 01 O57 46 
100 O28 95 O56 16 
029 42 O59 53 


TITLE: RESIDUAL STRESSES (MICRO) 


Enter data 


Compute | 


stress 


PROGRAM TITLE: 


RESIDUAL STRESSES (MICRO) 


FORMULAS: 


Q 


PROGRAM LISTING: 


— 
iT ‘Ts 
ror 


Ts 
im 


Ih t 


iT 


iT 


fae fo O01 
tag ‘T 


Tt 
oOo fe onen 


Dm) ies Be) 


(ane 
iT 


UJ 


wT Ts 
Oe es ee ee eg 


O00 0 Om md my mmo 


CORIO O RON 
= ae 


hoe Wea Oweonhye occ 


a 
6 
4 
0 
0 
5 


WO WOO Wh MoO oo ee no 


Ce | 


Mw oo ow 


(387) 


(388) 


(389) 


(390) 


TITLE: STRESS ANALYSIS PARAMETERS 


t 1 


REGISTER 


103 A&B 


Enter data 


Compute 
parameters 
Crack para- 
llel to fibers 


Crack perpen- 
dicular to 
fibers - 


PROGRAM TITLE: srress ANALYSIS PARAMETERS NO: 103 


FORMULAS: 


1 2 1/2 1 Z 1/2 | ~ 
w 2 [a+ in - 4k) : > Thon. E (n - 4k) i ] (511) 


1/2 1/2 
S22 Si2 S66 S22 
n = 2 S + er + ss. 7 Ko = 5. (512) 
11 11 11 ; 11 


104 


Pg 


ss 


PROGRAM TITLE: STRESS ANALYSIS PARAMETERS 


PROGRAM LISTING: 


ooo 46 o45 95 o90 1 
O01 16 O46 94 O91 40 
odg2 42 O47 42 O92 75 
no3 OO o48 oO O93 O4 
ono4 O1 O49 08 O94 65 
oo5 81 050 81 o95 43 
006 42 O51 46 o96 OO 
OG? GO O52 11 ags7 og 
008 02 O83 43 O98 95 
O09 81 O54 00 o899 30 
010 42 O55 o6& 100 42 
O11 00 056 55 101 O1 
O12 03 O57 43 102 O1 
g13 8 O58 00 103 85 


O17 43 O62 42 = 
018 00 O63 oO 108 95 
019 O1 O64 of 109 55 
020 20 065 81 110 02 
021 42 O66 85 111 95 
O22 OO O67 43 112 42 
O23 05 c66 00 113 O1 
024 43 069 08 114 O02 
025 00 O70 55 115 $1 
O26 O02 O71 43 116 43 
O27 20 ore 00 117 O1 
028 42 ors 05 118 oOo 
029 00 OF4 95 119 75 

120 43 


NO: 


103 


SAMPLE PROBLEM: 103 STRESS ANALYSIS PARAMETERS NO: 103 
EL = 181 x 10? 
E =| FQvo = 10” 
ae 3 ae 
G ate de gee-402 
LT wh " 
Vor = 28 + 


Parallel to fibers Perpendicular to fibers 


4k) je 4.192 ki 238.5x 10° 

Tal 7s] 5.750 Tay baa 

Hy =] 480d ut) 1.167 

uh =) (856.6x/1974 Uj, = 204.310" 
106 


Compute para- 


meters with 
103 


Compute crack 
tip stresses 


| PRESS | 


107 A&B 


DISPLAY 


0, 2nr/K, 
ov amr r/K, 


ri oat IK, 
xy 


PROGRAM TITLE: CRACK TIP STRESSES NO: i107 | 
FORMULAS: | 
@--= 90° 
ato K, et Weel ee K, ; ra ry 


R ee ¥ : ees 
a at. (518) 


] : eaten eel 


wee ce = 


PROGRAM LISTING: I 


ooo 46 o3o0 7: 
O31 4: 


Enter data 


Compute Y 


Enter data’ 


Compute COD 


PROGRAM TITLE: y FOR CENTER-CRACKED PLATE AND 


COD 
FORMULAS: 
2a 
2L 
aw 
Isotropic plates — 
{ ¥Y =: 1 +0.1282( a/w) - 0.2881 ( eta” + 1.5254 ( alway" 


Total COD 2 ps ee 
COD = elastic COD + plastic CTOD 


eat y ye gj 
E a * 
L: ¥y 


110 


109 


(516) 


(526) 


a a ee ee i 


PROGRAM TITLE: y FOR CENTER-CRACKED PLATE AND NO: 10%- 
. COD *s 
PROGRAM LISTING: 


oo00 46 045 06 O90 09 

oo1 11 O46 85 O91 54 

oof 42 O47 01 O92 95 

oo2 ao o48 95 O93 21 

oo4 o1 049 42 O94 46 

coos $1 050 01 G25 16 

o06 46 O81 00 O96 42 

007 12 052 81 O37 OO 

008 42 O52 46 O98 O06 

o09 00 O84 14 O99 81 

o10 o2 O55 42 100 42 

O11 61 O56 o1 i01 O00 

O12 46 O87 O1 102 O85 

O13 13 O58 65 103 81 

O14 55 O89 43 104 42 

015 43 o60 01 105 oo 
o1é6 ag 061 00 106 O4 
O17 go: G62 65 107 81 | 
O18 95 ‘O63 43 i108 46 

019 20 O64 oO 109 17 
o29 42 065 01 110 42 
021 00 066 55 111 00 | 
O22 02 O67 43 112 O07 

o23 45 066 00 113 81 
O24 03 cé69 oF 114 42 

025 65 ora 65 115 00 

O26 43 O71 53 116 08 } 
o27 goo o72 43 117 81 

028 O04 o7f3 0060 118 46 i 
o29 65 o74 08 119 18 
030 43 O75 85 120 42 } 
O31 g0 G76 59 121 00 I 
O32 03 O77 55 tze a9 ? 
022 40 O78 02 123 61 

034 65 O79 65 ! 

025 43 O80 43 4 
036 oO O81 O1 By 
o37 05 o82 Oo J 


038 85 083 65 ' 

039 43 O84 43 : 

O40 00 O85 Of : 

O41 03 086 O1 ' 
| O42 65 087 55 1 | 
043 43 O88 43 . | 


G44 00 O89 00 


TITLE: ECDZ AND NOTCHED STRENGTH 


— REGISTER 


Enter constants 113 A&B 0.1282 0.1282 
-0.2881 -0.2881 
1.5254 1.5254 


Enter unnotched x x 
strength 


Enter data to 
determine c 
Repeat for 
data 


Compute YX /x 


PROGRAM TITLE: gcpz AND NOTCHED STRENGTH NO: 


FORMULAS: 
cs a 


YX. ¢ M2 
n a ° 6 
|X asin® + . (5 ) 
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PROGRAM TITLE: ECDZ AND NOTCHED STRENGTH NO: 113 


PROGRAM LISTING: 
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Oi7 OO G62 958 i107 43 
O18 02 O63 40 106 oO1 
019 55 64 75 109 O1 
o2f0 435 o65 o1 110 35 
021 00 o66 95 81 
O22 O1 oar 42 46 
023 935 o68 a1 vig 
O24 20 969 00 42 
o25 42 ofo 40 oc 


Cs Se ed 


ifEmoe 


Pa oh oA fe oo hi ee 


029 03 O74 43 oo 
O30 65 O75 O00 O05 165 ). 
O31 43 O76 01 1 166 | 
O32 00 ar? 65 Pa 167 ty 
O33 0 DPS 4: 3.00 168 ; 
O34 8° o79 O41 404 169 
035 43 oeo on 5 61 170 
O26 00 gsi 95 6 46 : 
037 O2 : : ? ‘ 
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TITLE: OFF-AXIS FATIGUE STRENGTH 


Constants 


READ DISPLAY 


STEP 
1 


PRESS 
A 


Enter data 


b 


Compute ag, by 


Compute Sget N- 


‘ 


PROGRAM TITLE: orr-AxIS FATIGUE STRENGTH NO: 3417 


FORMULAS: 


4 we. I ae. 
8 mn 8 mn 


PROGRAM LISTING: 


Oo ; 
[12 ee Oa 
moe 42 
oos Of 


Be 
fe 
om | 

7a 
i! 
wn 


Ff 
| 
me 
T) 
= 
= It 
Oud ade ace at 
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a) 
wo 
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a 
wom fe 


OO4 O1 o84 6 Hed OO OC a 

O05 81 035 43 065 03 095 ‘94 | 
O06 42 O56 00 66 SS O84 85 
Cor OO O87 O1 oe? 432 O97 43 

ooe of 38°95 O68 GO O9e on | 
ooo 21 942 069 09 O99 08 

oid 42 oo aro 95 i100 

O11 00 Or sort a2 S101 

o1z2 0 $1 are gi i102 
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oid 


; 43 Re 


mPa oot 


mpme 


Se) 
Lie 
Seiten 
— mo 
fe i 
(a ee Oe oe ee <a ee 
re LA hme CAs 


o15 506 ors 43 
O16 04 O46 65 oOFfe OOF 10e 
O17 Si O47 43 Orr d4 i107 } 
O18 46 O48 00 ofS 55 108 oO F 
O19 12 o49 GroosS OS 73s 


o20 42 050 
G21 00 O51 


ii 

“7 

— 

_ 

_ 
XS 
aon on 


i : 
O22 035 oO52 O82 95 1 3 
q O23 O53 3 13 G1 rs 
O24 O54 1 
025 055 15 95 , 
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027 
026 
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a 
un 
tat 
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ee 
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TITLE: FATIGUE STRENGTH OF ANGLE-PLY LAMINATE NO: 119 


Enter data 119 A&B 


Compute fi a. 
parameters | 


PROGRAM TITLE: FATIGUE STRENGTH OF ANGLE-PLY NO: 119 


LAMINATE 
FORMULAS: 
1 (a, + sec 26) tan” 26 
k= = dy: (555) 
a eee eee 
tT 2 ea ter u, + tan 26 
@, + sec 26) tan 26 
‘pee | dees (556) 
Ss 2 u, + tan” 26 
1 - E, /E, 
1 Trae oe a, (557) 
+ 2) LT +E_/E 
E,/Gpp 


=o (558) 


Sppiceniate 


120 


PROGRAM TITLE: FATIGUE STRENGTH OF ANGLE-PLY NO: 119 
LAMINATE 
PROGRAM LISTING: 


oo0 46 O45 95 030 13 135 95 .180 O09 
ooO1 11 O46 55 O91 65 136 94 ‘181 32 
O02 42 O47 53 @92 02 137 SS 182 40 
oo3 00 O46 O1 O93 95 138 O2 tes SS 
oO4 of O49 85 O94 42 139 95 184 43 
oo5 #1 o50 02 095 00 140 42 165 o1 
oo6 42 O51 65 oF986 09 141 O1 126 O64 
oo7 oo O52 43 O97 53 14203 187 75 
gos of O53 00 O88 43 i143 #81 igs oO1 
oo9 81 O54 Oo4 O99 O01 144 O1 169 Sd 
Hig 42 G55 85 100 66 145 85 190 65 
O11 00 O56 43 101 65 146 43 191 43 
O12 03 o57 00 i102 43 i147 O1 192 00 ' 
013 61 O58 O01 103 00 148 OO 19% 09 
O1ld¢d 42 059 55 i104 09 149 65 194 35 
015 00 060 43 105 33 150 43 195 20 | 
016 64 O61 OO 106 65 151 00 196 95 | 
O62 OF i107 43 S209 197 55 
‘ G63 54 108 a0 153 32 i968 G2 | 
‘ O64 42 109 09 154 40 199 95 
oe O63 Of 110 32 155 55 200 42 
2 O66 OS. 111-85 156 53. 201 01 
= G6ér 95 112 43 157 43 202 o4 
ae oe6 ba 42 113 00 158 o1 20 3 81 
O24 06 069 O1 114 09 159 O1 
025 Si Gri OO) 115 S2 160 65 
o26 42 O71 81-116 54 161 43 
O27 OO Ur2 43 Lif 33 62 00 
o28 o7 oO73 oO 118 53 163 09 
029 81 O74 of 119 43 164 33 
o30 42 o75 55 120 01 165 40 j 
O21 oO O76 43 121 01 166 85 
O32 og or7 oo 122 65 167 43 
O33 61 ore os 123 43 168 OO 
034 46 or9 95 124 00 169 O9 
035 12 O80 SS 125 09 170 32 | 
o36 O1 081 43 126 33 171 40 
i O37 75 O82 G1 127 40 17fe 54 } 
038 43 083 05 128 85 173 42 ] 
039 00 O84 95 129 43 174 O1 
odo o1 085 42 130 90 175 06 
| 041 55 086 01 131 09 176 85 
o42 43 O87 O01 132 32 I17Fr SS 
O43 oo O88 81 133 40 178 43 
{ O44 O02 O89 46 134 54 179 


ao 
a 
ANRC NE ei EL ates AOR 2 BT lm 


TITLE: STRENGTH PREDICTION (FAILURE POTENTIAL) NO: 123 


READ ENTER PRESS DISPLAY 
t A 4 


123 A&B 


1+1/a(g +1) 
1+2/a@+1) 


x (power) 


c. v. (power 


x (exp. ) 


PROGRAM TITLE: STRENGTH PREDICTION (FALLURE NO: 123 
POTENTIAL) 
FORMULAS: 
= x (power) ——- Pht sede] 
1/(B+t)- 
x, =-Lt, [te c Pipe). ah (580) 
3 1/2 
re ehh +2/eio+ 1) Seay 
r (1 +1/e(6 + 1)J 
(585) 


y: Euler constant (=0.5772) 


; ¢ 
we 3 nw 
= = (atnitic,/c,) - y) 


PROGRAM TITLE: STRENGTH PREDICTION (FAILURE NO: 123 
POTENTIAL) | 


PROGRAM LISTING: 


000 46 O45 43 090 43 135 09 180 54 
001 11 .046 00 O91 00 136 40 181 95 
oo2 42 o47 04 O92 04 137 75 182 81 
003 00 o48 $5 093 85 138 01 183 OO 
004 01 o49 01 O94 01 139 95 184 O09 
ooS $1 o50 54 O95 54 140 30 185 00 
O06 42 O51 95 O96 95 141 9 j 

oo 

a4 

81 

42 


O12 03 O57 85 102 01 147 OF 
012 81 O58 01 103 95 148 55 

01442 059 54 104 81 149 43 

015 00 O60 20 105 42 150 00 

016 05 o61 95 106 00 151 O8 

017 81 O62 65 107 09 

018 42 063 43 108 43 

019 00 G64 00 109 O1 

020 07 065 02 110 O2 

021 81 66 45 

022 42 067 53 

023 00 a6s 42 

024 06 t69 OO 

025 81 a7o 04 

026 42 071 55 

027 oO O72 52 

028 02 O73 43 

029 21 o74 00 119 00 164 OO 

020 42 o75 04 120 43 165 02 

031 01 O76 85 121 oo 166 65 

032 01 O77 O1 122 08 167 43 

023 $1 O78 54 123 65 168 OO 

034 46 O79 54 124 43 169 06 

; 035 12 o80 95 125 00 170 55 
036 43 081 42 126 09 171 43 
37 00 o82 00 127 95 172 00 
038 O1 083 08 128 $1 173 07 
039 65 084 81 129 43 174 54 
| 040 43 ‘985 42 130 O01 175 23 
| 041 00 O86 OO 131 00 176 75 
042 02 o87 05 132 55 177 43 

043 65 088 65 133 43 178 01 

. 044 53 08953 134 00 179 01 
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O11 00 o56 04 101 85 146 O00 
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TITLE: RESIDUAL STRENGTH (a) 


127 A&B 


Enter 
parameters 


inne 


Compute R 


Compute’ R~ , 


PROGRAM TITLE: 


FORMULAS: 


RESIDUAL STRENGTH (a) 


128 


NO: 


127 


(622) 


(623) 


(624) 


eel 


PROGRAM TITLE: RESIDUAL STRENGTH (a) NO; 127 


PROGRAM LISTING: 


ooo 46 O45 43 o90 45 135 42 
O01 16 O46 O80 O91 43 136 O86 
Oo2 42 O47 G1 O92 00 i137 O02 
oos oo O48 95 O93 O4 138 S4 
O04 Of O49 65 O94 95 139 45 
oo5 #1 o580 43 o895 34 {40 45 
O06 42 O81 00 O96 22 i141 OO 
GO? O00 O52 04 O97 23 142 O1 
ooe of o55 55 o978 & {43 35 
ooo 61 O54 435 oF 144 22 
Nig 42 oO85 of 100 145 22 
O11 00 O56 o1 101 idé 61 
wile OS C57 2a LEZ 

013 81 O58 55 103 

O14 42 O59 S53 104 

O15 006 g6O0 43 105 

O16 O4¢ O61 00 106 


al 
_ 
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on 
be 
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in co t 
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t. 
Th 
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o1e 


55 108 
019 00 O64 43 109 
o20 05 065 00 110 
O21 61 066 06 1 oo 
O22 42 ef 54 2 O1 
on23 0 o OAS 45 3 45 
O24 06 69 43 4 94 
025 81 oro oo 5 7S 
026 42 of1 O85 6 53 
27 GO Ore 95 Y 43 
028 09 ors 45 6 oa 
029 81 oOFf4 43 9 O07 
o30 46 o75 oo i So 


032 42 o77 20 a1 
O33 oo a5 oo 
O34 0 o79 42 
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TITLE: RESIDUAL STRENGTH (b) 


OPERATION | STEP READ 
1 


Enter 131 A&B 
parameters 


ENTER PRESS DISPLAY 
S.. At 


Compute N— y 


ae, a PR eA 
Compute R | 


Compute’ Ry 


PROGRAM TITLE; RESIDUAL STRENGTH (b) NO: 131 


FORMULAS: 
a 
a a /a a 
x," idle: (6. fovea , max ; 
R(x.) = exp} ~ we + =. 
x ° 
° 
x “. “ ote per ar 
= exp¢ -| {| — Ge) a (627) 
x ° ° 
° 
a /a - 
ee 
R CN) = n>] (8) (628) 
N (S cf i 
o max ) mt {e, (629) 
" 
\ 
132 


PROGRAM TITLE: RESIDUAL STRENGTH (b) NO: 131 


PROGRAM LISTING: 


aoc 
oy 
noe 
gos 
oo4 
nos 
noe 
oo7 
o0g 
oo9 
oid 
Ot 
Ole2 
O13 
O14 
O15 


o16 


o17 & 


Ce ae a 


pa 


TE 
wo 


Dany 
am) 
fe 
on 


46 20 Oo 23 135 02 
16 O46 65 O91 1 136 S4 
42 47 Se O92 46 127 45 
oo 4s 4e 835 13 138 4% 
od o49 oO O94 42 129 oOo 
81 o50 02 095 G6 : 

#2 051 55 O36 07 

OO 52 43 897 a5 

o2 05% 00 OoF8 43 

Si oS4 oo o39 00 

42 055 54 100 02 
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Of o57 43 i102 45 

61 o56 ao 103 43 
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00 oé60 95 105 Of 
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TITLE: CUMULATIVE DAMAGE 


OPERATION | STEP READ DISPLAY 


Enter data 


Compute Ria 


model (a) Lo 


model (b)_ | 


PROGRAM TITLE: CUMULATIVE DAMAGE NO: 135 


FORMULAS: 


te) a. = a 


az \s (wi\% 
R (N,) = exp] - denied = (oak 6 
gn1'*2 N N (634) 
ol o2/ 


a /”% 
ny N, s Tr ese 
Bai 2) Re Aa) 
ol o2 


136 


PROGRAM TITLE: CUMULATIVE DAMAGE NO: 135 


PROGRAM LISTING: 


Ts Ts 
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137 


TITLE: COMPOSITE CONDUCTIVITIES 


Tnput data 


PROGRAM TITLE: CcomMPposiITE CONDUCTIVITIES NO: 139 


FORMULAS: 


Heat Transfer (temperature effects) 
q = -KVT (G38j oe" 


One dimensional steady 
WF a Te 


Wey? 
a, - = +K,, Ty 


(639) 


Composite Materials 


- 2 2 Fiber 
K, = K,,co8 a t+ K, sin a (640) 


Approximations {v5 < 0.785) 


By 


W 


(lev )K + v Ke (641) 


2 
4 ie yi - (Byv,/m) 


1 
K = KA(1 - 2 (/t)+ tan Ep ere a ge 
' : ¥ 


B 
- Vi - Bev / 1+ BLE, /a) 


Kn, i 
By = 2 x, (643) 


(642) 


140 


PROGRAM TITLE: COMPOSITE. CONDUCTIVITIES 


PROGRAM LISTING: 


hho to ho bo 


wooo J) oh 


oO0 46 045 02 o90 20 1 
HOOT 11 646 75 O91 22 1 
Ou2 42 (O47 OF O82 34° wf 
003 00 048 95 093 65 1 
OO4 O1 049 65 O94 04 1 
ooo & 050 02 O95 355 140 
oo6e 42 O51 95 096 S32 

ooF oO O52 42 oOFFf Of1 ide 
O08 02 O83 00 O98 75 143 
OOF 81 O54 O04 O99 43 144 
O10 42 O85 40 100 00 14 
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o1e of 3 42 {06 34 
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O20 43 5 05 43 
uo eee a 
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TITLE: MoISTURE GAIN AND DISTRIBUTION 


! 
Compute al 
| bse 


: aaeeees Game f 
| 
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PROGRAM TITLE: MOISTURE GAIN AND DISTRIBUTION NO: 143 
FORMULAS: | 
(s=2h) 
Moisture Effects T Me Je 
AL GE as SEE mh 
iT j= |-pyvc (644) KS 
ri s g 
Steady Bound. Cond. a 4 f | 
One Dimensional ae a 
Temp Constant | oe E | 
Uniform Initial Distributions h il 
Moisture Distribution: = 
t c-C, co A Dt 
* 4 1 2j+1 
C'| = ee = 1 SF carry 9 BENE eno [iaions?e | =} (645) 
mi j=0 8” | 
Moisture Content (weight gain): | 
W-W, 
M == W = G(M,-M,) + M, (646) | 
| } 
|e ” 
Ge1-5 > ; (647) 
nm j=0 (2j+1) 
Time to reach 99.9% saturation: 
Lot, 2 
t = 0. 67 8 (648) } 


PROGRAM TITLE: MOISTURE GAIN AND DISTRIBU TION NO; 143 


PROGRAM LISTING: 


o45 oF ood 464 
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o52 OO7 55 o97 OL i142 35 
Bas & nos 43 098 00 143 41 


oo9 oOo 


an 

bw 

oo 

D 

f 

ca'¢ 
(sa 


055 6 oi0 o1 100 00 145 if 
O56 9 O11 95 1601 G6 i46 10 
oo7 4 O12 20 i102 65 i47 68 
O56 00 O12 42 103 43 148 44 
o59 06 O14 00 104 00 149 31 
060 40 O15 Oe 105 O4 150 O04 
061 65 016 81 106 65 i151 10 
O62 59 Of 42 107 59 152 30 
063 40 0168 00 108 95 i153 345 
064 65 619 03 109 22 154 O4 
065 43 O20 81 110 38 155 20 
066 06 G21 55 111 32 156 50 
O67 OS O22 43 112 36 157 19 
066 95 O23 00 113 04 158 O8 
069 94 Of4 O23 114 92 159 30 
O7O 22 O25 95 115 338 

O71 23 O26 42 116 34 

O72 42 O27 OO 117 52 

O73 00 O28 O4 118 

ord of O29 00 1153 

OFS SS C30 42 126 

076 43 O31 00 121 

or?’ 00 O32 08 122 

O78 06 USS SI 123 

o79 40 O34 65 fee 

oso 95 O35 43 12 

O81 44 O36 00 126 

062 00 U37 Oe 2 

083 of O36 935 2e 

034 43 O39 42 29 95 

065 oO o40 00 i130 55 

GE6 Uy Uai US PSi iv 

os7 65 O42 00 132 50 

088 06 O43 42 133 495 

069 55 O44 00 134 29 
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PROGRAM TITLE: pest FIT FOR WEIBULL DISTRIBUTION NO: 147 
FORMULAS: 
F = 1 - exp [- (x/x,)"] (702) 
Jj oe 
‘ N +0.4 


148 


a 


a aes 


PROGRAM TITLE: BEST FIT FOR WEIBULL DISTRIBUTION NO: 147 


PROGRAM LISTING: 


7G) 
Mm ON YP OA hohe 
n 


105 00 {50 23 


oA on 
Fr 
i 

_n 


ooo 46 O45 02 “O90 45 435 oo 180 41° 
oo1 88 o46 44 o81 00 {36 O4 181 87 
oo2 44 o47 oOo O82 O04 157 95 182 46 
003 00. O48 G4 O93 75 138 55 182 12 
oo4 00 o49 40 O94 435 1359 43 {84 14 
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